(* -*- Mode:Tuareg; -*-
   *===----------------------------------------------------------------------===
   * Version: $Id: util.ml,v 0.0 2012/02/22 22:41:18 bobzhang1988 Exp $
   *===----------------------------------------------------------------------===*)
open Printf

let (|>) x f = f x

let (|-) f g x = g(f(x))



















